Komputer for Alle 2001 #9/CD 9 (Black) - 2001.iso/K-CS.dcr/00026_AdAware venteloop.ls

Text File | 2001-05-17 | 679 b | 30 lines

global BlinkObjekt

on new me
  cursor(0)
  set BlinkObject to 0
  set the locH of sprite 99 to 780
  set the text of member "SpyCount" to "1"
  set the text of member "FolderCount" to "0"
  set BlinkObjekt to new(script "Blink", 4, 80)
end

on exitFrame
  set Bredde to the width of sprite 48
  if Bredde < 284 then
    set the width of sprite 48 to Bredde + 2
    if Bredde > 100 then
      set the visible of sprite 49 to 1
      if Bredde > 200 then
        set the visible of sprite 50 to 1
        set the text of member "SpyCount" to "19"
      else
        set the text of member "Spycount" to "10"
      end if
    end if
    go(#loop)
  else
    go(#next)
  end if
end